home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November A / PCWK1103A.iso / ABBYY FineReader 7.0 PRO / data1.cab / pdf_ops.ps < prev    next >
Text File  |  2002-02-23  |  16KB  |  521 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdf_ops.ps,v 1.17.2.2 2002/02/22 19:45:55 ray Exp $
  17. % Definitions for most of the PDF operators.
  18.  
  19. .currentglobal true .setglobal
  20.  
  21. % Define pdfmark.  Don't allow it to be bound in.
  22. % Also don't define it in systemdict, because this leads some Adobe code
  23. % to think this interpreter is a distiller.
  24. % (If this interpreter really is a distiller, don't do this.)
  25. systemdict /pdfmark known not
  26.  { userdict /pdfmark { cleartomark } bind put } if
  27.  
  28. userdict /GS_PDF_ProcSet 127 dict dup begin
  29.  
  30. % ---------------- Abbreviations ---------------- %
  31.  
  32. /bdef { bind def } bind def
  33.  
  34. % ---------------- Graphics state stack ---------------- %
  35.  
  36. % PDF adds a number of parameters to the graphics state.
  37. % We implement this by pushing and popping a dictionary
  38. % each time we do a PDF gsave or grestore.
  39. % The keys in this dictionary are as follows:
  40. %    self            % identifies the dictionary as one of ours
  41. %    ClipRect        % (optional)
  42. %    Show
  43. %    TextSaveMatrix        % matrix at time of BT (iff within BT/ET)
  44. % (The following correspond directly to PDF state parameters.)
  45. %    AlphaIsShape
  46. %    FillConstantAlpha
  47. %    FillColor
  48. %    FillColorSpace
  49. %    FillOverprint
  50. %    SoftMask
  51. %    StrokeConstantAlpha
  52. %    StrokeColor
  53. %    StrokeColorSpace
  54. %    StrokeOverprint
  55. %    TextSpacing
  56. %    TextHScaling
  57. %    Leading
  58. %    TextFont
  59. %    TextLineMatrix
  60. %    TextMatrix
  61. %    TextRise
  62. %    TextRenderingMode
  63. %    WordSpacing
  64.  
  65. /nodict 1 dict def
  66. nodict /self { //nodict } executeonly put
  67. nodict readonly pop
  68.  
  69. /dictbeginpage {    % <initialdict> dictbeginpage -
  70.   //nodict 20 dict .copydict begin { def } forall
  71.   graphicsbeginpage textbeginpage
  72. } bdef
  73. /endpage {    % - endpage -
  74.   showpage end
  75. } bdef
  76.  
  77. /graphicsbeginpage {
  78.   initgraphics
  79.   currentdict /ClipRect .knownget { aload pop rectclip } if
  80.   0 g  0 G  false op  false OP  0 OPM
  81.   1 ca  1 CA  null SMask  false AIS  /Compatible BM  true TK
  82. } bdef
  83.  
  84. /gput        % <value> <key> gput -
  85.  { exch currentdict //nodict eq { /self dup load end 5 dict begin def } if
  86.         % If we're in a Level 1 system, we need to grow the
  87.         % dictionary explicitly.
  88.    currentdict length currentdict maxlength ge %eq
  89.     { currentdict dup length 3 mul 2 idiv 1 add dict .copydict end begin 
  90.     }
  91.    if def
  92.  } bdef
  93.  
  94. /q {
  95.   gsave //nodict begin
  96. } bdef
  97. % Some PDF files have excess Q operators!
  98. /Q {
  99.   currentdict /self .knownget { exec //nodict eq { end grestore } if } if
  100. } bdef
  101.  
  102. % ---------------- Color setting ---------------- %
  103.  
  104. /fcput        % <color> <colorspace> fcput -
  105.  { /FillColorSpace gput /FillColor gput
  106.  } bdef
  107. /scput        % <color> <colorspace> scput -
  108.  { /StrokeColorSpace gput /StrokeColor gput
  109.  } bdef
  110.  
  111. /csdevgray [/DeviceGray] readonly def
  112. /csdevrgb [/DeviceRGB] readonly def
  113. /csdevcmyk [/DeviceCMYK] readonly def
  114. /cspattern [/Pattern] readonly def
  115. /nullpattern1 mark
  116.    /PatternType 1 /PaintType 1 /TilingType 3 /BBox [0 0 0 0]
  117.    /XStep 1 /YStep 1 /PaintProc { }
  118. .dicttomark readonly def
  119. /nullpattern2 nullpattern1 dup length dict copy readonly def
  120.  
  121. % Each entry in the color space dictionary is a procedure of the form
  122. %    <cspace> -proc- <cspace> <initial-color>
  123. /CSdict mark
  124.   /DeviceGray { pop //csdevgray 0 } bind
  125.   /DeviceRGB { pop //csdevrgb [0 0 0] cvx } bind
  126.   /DeviceCMYK { pop //csdevcmyk [0 0 0 1] cvx } bind
  127.   /CIEBasedA { 0 } bind
  128.   /CIEBasedABC { [0 0 0] cvx } bind
  129.   /ICCBased { [ 1 index 1 oget /N get { 0 } repeat ] cvx } bind
  130.   /Separation { 1 } bind
  131.   /DeviceN {    % What is the correct value??
  132.     [ 1 index 1 get length { 1 } repeat ] cvx
  133.   } bind
  134.   /Indexed { 0 } bind
  135.   /Pattern {
  136.     dup type /nametype eq 1 index length 1 eq or {
  137.       pop //cspattern //nullpattern1 matrix makepattern
  138.     } {
  139.       //nullpattern2 matrix makepattern 1 index 1 get csset
  140.         % Stack: patternspace nullpattern basecolor basespace
  141.       pop [ 3 1 roll dup type /arraytype eq { aload pop } if
  142.       counttomark -1 roll ] cvx
  143.     } ifelse
  144.   } bind
  145. .dicttomark readonly def
  146. /csset            % <cspace> csset <color> <cspace>
  147.  { dup dup type /nametype ne { 0 get } if //CSdict exch get exec exch
  148.  } bdef
  149.  
  150. /g { //csdevgray fcput } bdef
  151. /G { //csdevgray scput } bdef
  152. /rg { 3 array astore cvx //csdevrgb fcput } bdef
  153. /RG { 3 array astore cvx //csdevrgb scput } bdef
  154. /k { 4 array astore cvx //csdevcmyk fcput } bdef
  155. /K { 4 array astore cvx //csdevcmyk scput } bdef
  156. /cs { csset fcput } bdef
  157. /CS { csset scput } bdef
  158. /ri { pop } bdef
  159. % We have to break up sc according to the number of operands.
  160. /sc1 { /FillColor gput } bdef
  161. /SC1 { /StrokeColor gput } bdef
  162. % We have to avoid storing into a color array associated with an outer
  163. % gsave level, so we do a kind of "copy on write".
  164. /sc* {
  165.   currentdict /FillColor .knownget {
  166.     astore pop
  167.   } {
  168.     /FillColor load length array astore cvx /FillColor gput
  169.   } ifelse
  170. } bdef
  171. /SC* {
  172.   currentdict /StrokeColor .knownget {
  173.     astore pop
  174.   } {
  175.     /StrokeColor load length array astore cvx /StrokeColor gput
  176.   } ifelse
  177. } bdef
  178.  
  179. % ---------------- Overprint/transparency setting ---------------- %
  180.  
  181. /op { /FillOverprint gput } bdef
  182. /OP { /StrokeOverprint gput } bdef
  183. /OPM {
  184.   /.setoverprintmode where { pop .setoverprintmode } { pop } ifelse
  185. } bdef
  186. /ca { /FillConstantAlpha gput } bdef
  187. /CA { /StrokeConstantAlpha gput } bdef
  188. /SMask { /SoftMask gput } bdef
  189. /AIS { /AlphaIsShape gput } bdef
  190. /BM {
  191.   /.setblendmode where {
  192.     pop [ exch dup type /nametype ne { aload pop } if /Normal ] {
  193.       { .setblendmode } .internalstopped not { exit } if pop
  194.     } forall
  195.   } {
  196.     pop
  197.   } ifelse
  198. } bdef
  199. /TK {
  200.   /.settextknockout where { pop .settextknockout } { pop } ifelse
  201. } bdef
  202.  
  203. % ---------------- Color installation ---------------- %
  204.  
  205. % Establish a given color (and color space) as current.
  206. /.settransparencyparams {    % <alpha> <smask> .settransparencyparams -
  207.   /.begintransparencymask where {
  208.     pop AlphaIsShape {
  209.       1 .setopacityalpha 0 .inittransparencymask exch .setshapealpha 1
  210.     } {
  211.       1 .setshapealpha 1 .inittransparencymask exch .setopacityalpha 0
  212.     } ifelse
  213.     % Set the soft mask by rendering the XObject.  Doing this every time
  214.     % is obviously very inefficient; we'll improve it later.
  215.     .settransparencymask    
  216.   } {
  217.     pop pop
  218.   } ifelse
  219. } bdef
  220. /.settransparencymask {        % <paramdict> <masknum> .settransparencymask -
  221.   exch dup null eq {
  222.     pop .inittransparencymask
  223.   } {
  224.     dup /Draw get exec
  225.   } ifelse
  226. } bdef
  227. % (Non-mask) images must execute setfillblend.
  228. /setfillblend {
  229.   FillOverprint setoverprint
  230.   FillConstantAlpha SoftMask .settransparencyparams
  231. } def
  232. /setfillstate {
  233.   FillColor FillColorSpace setgcolor setfillblend
  234. } def
  235. /setstrokestate {
  236.   StrokeColor StrokeColorSpace setgcolor StrokeOverprint setoverprint
  237.   StrokeConstantAlpha SoftMask .settransparencyparams
  238. } def
  239. /Cdict 15 dict dup begin    % <color...> <colorspace> -proc- -
  240.   /DeviceGray { pop setgray } bdef
  241.   /DeviceRGB { pop setrgbcolor } bdef
  242.   /DeviceCMYK { pop setcmykcolor } bdef
  243.   /CIEBasedA
  244.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse setcolor } bdef
  245.   /CIEBasedABC /CIEBasedA load def
  246.   /CIEBasedDEF /CIEBasedA load def
  247.   /CIEBasedDEFG /CIEBasedA load def
  248.   /ICCBased /CIEBasedA load def
  249.   /Separation /CIEBasedA load def
  250.   /DeviceN /CIEBasedA load def
  251.   /Indexed /CIEBasedA load def
  252.   /Pattern
  253.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse
  254.      dup /Matrix .knownget not { matrix } if
  255.      gsave DefaultMatrix setmatrix makepattern grestore setcolor
  256.    } bdef
  257. end def
  258. /setgcolor    % (null | <color...>) <colorspace> setgcolor -
  259.  { 1 index null eq
  260.     { pop pop }
  261.     { dup 0 get //Cdict exch get exec }
  262.    ifelse
  263.  } bdef
  264. /fsexec        % <fillop|strokeop> fsexec -
  265.  {        % Preserve the current point, if any.
  266.     { currentpoint } stopped
  267.     { $error /newerror false put   cvx exec }
  268.     { 3 -1 roll cvx exec moveto }
  269.    ifelse
  270.  } bdef
  271.  
  272. % ---------------- Path painting and clipping ---------------- %
  273.  
  274. /S { setstrokestate /stroke fsexec } bdef
  275. /f { setfillstate /fill fsexec } bdef
  276. /f* { setfillstate /eofill fsexec } bdef
  277. /n { newpath } bdef        % don't allow n to get bound in
  278. /s { closepath S } bdef
  279. /B { gsave setfillstate fill grestore S } bdef
  280. /b { closepath B } bdef
  281. /B* { gsave setfillstate eofill grestore S } bdef
  282. /b* { closepath B* } bdef
  283.  
  284. % Clipping:
  285.  
  286. /Wdict 4 dict dup begin
  287. /S { gsave setstrokestate stroke grestore n } bdef
  288. /f { gsave setfillstate fill grestore n } bdef
  289. /f* { gsave setfillstate eofill grestore n } bdef
  290. /n { end clip newpath } bdef
  291. end readonly def
  292. /W { //Wdict begin } bdef
  293. /W*dict 4 dict dup begin
  294. Wdict { def } forall
  295. /n { end eoclip newpath } bdef
  296. end readonly def
  297. /W* { //W*dict begin } bdef
  298.  
  299. % ---------------- Text control ---------------- %
  300.  
  301. /textbeginpage
  302.  { /TextSpacing 0 def        % 0 Tc
  303.    /TextLeading 0 def        % 0 TL
  304.    /TextRenderingMode 0 def    % 0 Tr
  305.    /TextRise 0 def        % 0 Ts
  306.    /WordSpacing 0 def        % 0 Tw
  307.    /TextHScaling 1.0 def    % 100 Tz
  308.    /TextFont null def
  309.    /Show { showfirst } def
  310.  } bdef
  311.  
  312. % Contrary to the statement in the PDF manual, BT and ET *can* be nested,
  313. % if the CharProc for a Type 3 font does a BT/ET itself.
  314. % Since we always call the CharProc inside a q/Q, we simply ensure that
  315. % the text state is saved and restored like the rest of the extended
  316. % graphics state.
  317.  
  318. /settextmatrix {
  319.   TextMatrix concat
  320.   TextHScaling 1 ne { TextHScaling 1 scale } if
  321.   TextRise 0 ne { 0 TextRise translate } if
  322.   TextFont dup null eq { pop } { setfont } ifelse
  323. } bdef
  324. /settextstate {
  325.     % The text state can be set even outside BT/ET.
  326.   currentdict /TextSaveMatrix known {
  327.     TextSaveMatrix setmatrix settextmatrix
  328.   } if
  329. } bdef
  330. /settextposition {
  331.         % Update the TextMatrix translation.
  332.   gsave TextSaveMatrix setmatrix
  333.   currentpoint TextMatrix 4 2 getinterval astore pop
  334.         % We would like to do "grestore currentpoint translate"
  335.         % here, but some PDF files set a singular text matrix
  336.         % (0 0 0 0 <x> <y> Tm), so we can't do this.
  337.   TextTempMatrix identmatrix setmatrix currentpoint
  338.   grestore
  339.   TextTempMatrix currentmatrix 4 2 getinterval astore pop
  340.   TextTempMatrix setmatrix
  341. } bdef
  342.  
  343. /BT {
  344.   currentdict /TextLineMatrix .knownget
  345.     { identmatrix pop TextMatrix identmatrix pop }
  346.     { matrix /TextLineMatrix gput matrix /TextMatrix gput }
  347.   ifelse
  348.   { showfirst } /Show gput
  349.   currentdict /TextSaveMatrix .knownget not {
  350.     matrix dup /TextSaveMatrix gput
  351.   } if currentmatrix pop settextmatrix
  352.   matrix /TextTempMatrix gput        % see settextposition
  353. } bdef
  354. /ET {
  355.   TextRenderingMode 4 ge { clip newpath } if
  356.   TextSaveMatrix setmatrix
  357.   currentdict /TextSaveMatrix undef
  358. } bdef
  359. /Tc { /TextSpacing gput { showfirst } /Show gput } bdef
  360. /TL { /TextLeading gput } bdef
  361. /Tr { /TextRenderingMode gput { showfirst } /Show gput } bdef
  362. /Ts { /TextRise gput settextstate } bdef
  363. /Tw { /WordSpacing gput { showfirst } /Show gput } bdef
  364. /Tz { 100 div /TextHScaling gput settextstate} bdef
  365.  
  366. % ---------------- Font control ---------------- %
  367.  
  368. /Tf {        % <font> <scale> Tf -
  369.   dup 1 eq { pop } { scalefont } ifelse
  370.   /TextFont gput settextstate
  371. } bdef
  372.  
  373. % Read a CFF font.
  374. /FRD        % <resname> <file> FRD -
  375.  { /FontSetInit /ProcSet findresource begin true ReadData
  376.  } bdef
  377.  
  378. % Copy a font, removing its FID.  If changed is true, also remove
  379. % the UniqueID and XUID, if any.  If the original dictionary doesn't have
  380. % the keys being removed, don't copy it.
  381. /.copyfontdict        % <font> <changed> .copyfontdict <dict>
  382.  { 1 index /FID known
  383.    1 index { 2 index /UniqueID known or 2 index /XUID known or } if
  384.     {        % We add 1 to the length just in case the original
  385.         % didn't have a FID.
  386.       exch dup length 1 add dict exch
  387.        {        % Stack: changed newfont key value
  388.      1 index /FID eq 4 index
  389.       { 2 index /UniqueID eq or 2 index /XUID eq or }
  390.      if not { 3 copy put } if pop pop
  391.        }
  392.       forall exch
  393.     }
  394.    if pop
  395.  } bdef
  396.  
  397. % Insert a new Encoding or Metrics into a font if necessary.
  398. % Return a possibly updated font, and a flag to indicate whether
  399. % the font was actually copied.
  400. /.updatefontmetrics {    % <font> <Metrics|null> .updatefontmetrics
  401.             %   <font'> <copied>
  402.   dup null ne {
  403.     exch true .copyfontdict dup /Metrics 4 -1 roll put true
  404.   } {
  405.     pop false
  406.   } ifelse
  407. } bdef
  408. /.updatefontencoding {    % <font> <Encoding|null> .updatefontencoding
  409.             %   <font'> <copied>
  410.   dup null ne { dup 2 index /Encoding get ne } { false } ifelse {
  411.     exch false .copyfontdict dup /Encoding 4 -1 roll put true
  412.   } {
  413.     pop false
  414.   } ifelse
  415. } bdef
  416. /.updatefont {        % <font> <Encoding|null> <Metrics|null> .updatefont
  417.             %   <font'> <copied>
  418.   3 -1 roll exch .updatefontmetrics
  419.             % Stack: enc|null font' copied
  420.   3 1 roll exch .updatefontencoding 3 -1 roll or
  421. } bdef
  422.  
  423. % ---------------- Text positioning ---------------- %
  424.  
  425. /Td {
  426.   TextLineMatrix transform TextLineMatrix 4 2 getinterval astore pop
  427.   TextLineMatrix TextMatrix copy pop settextstate
  428. } bdef
  429. /TD { dup neg /TextLeading gput Td } bdef
  430. /T* { 0 TextLeading neg Td } bdef
  431. /Tm {
  432.   TextLineMatrix astore TextMatrix copy pop settextstate
  433. } bdef
  434.  
  435. % ---------------- Text painting ---------------- %
  436.  
  437. /Vexch {
  438.   rootfont /WMode .knownget { 1 eq { exch } if } if
  439. } bind def
  440.  
  441. /textrenderingprocs [        % (0 is handled specially)
  442.     % Painting-only modes
  443.    { tf } { tS } { tB } { tn }
  444.     % Clipping modes
  445.    { gsave tf grestore tW }
  446.    { gsave tS grestore tW }
  447.    { gsave tB grestore tW }
  448.    { tW }
  449. ] readonly def
  450. /setshowstate
  451.  { WordSpacing 0 eq TextSpacing 0 eq and
  452.     { TextRenderingMode 0 eq
  453.        { { setfillstate show } }
  454.        { { false charpath textrenderingprocs TextRenderingMode get exec } }
  455.       ifelse
  456.     }
  457.     { TextRenderingMode 0 eq
  458.        { WordSpacing 0 eq
  459.           { { setfillstate TextSpacing 0 Vexch 3 -1 roll ashow } }
  460.       { TextSpacing 0 eq
  461.             { { setfillstate WordSpacing 0 Vexch 32 4 -1 roll widthshow } }
  462.             { { setfillstate WordSpacing 0 Vexch 32
  463.                  TextSpacing 0 Vexch 6 -1 roll awidthshow } }
  464.         ifelse
  465.       }
  466.      ifelse
  467.        }
  468.        { { WordSpacing TextSpacing
  469.             % Implement the combination of t3 and false charpath.
  470.             % Note that we must use cshow for this, because we
  471.             % can't parse multi-byte strings any other way.
  472.             % Stack: string xword xchar
  473.         { pop pop (x) dup 0 3 index put false charpath
  474.             % Stack: xword xchar ccode
  475.              3 copy 32 eq { add } { exch pop } ifelse 0 Vexch rmoveto pop
  476.         }
  477.        4 -1 roll cshow pop pop
  478.        textrenderingprocs TextRenderingMode get exec
  479.      }
  480.        }
  481.       ifelse
  482.     }
  483.    ifelse /Show gput
  484.  } bdef
  485. /showfirst { setshowstate Show } def
  486.  
  487. /Tj {
  488.   0 0 moveto Show settextposition
  489. } bdef
  490. /' { T* Tj } bdef
  491. /" { exch Tc exch Tw T* Tj } bdef
  492. /TJ {
  493.   0 0 moveto {
  494.     dup type /stringtype eq {
  495.       Show
  496.     } { -1000 div
  497.       currentfont /ScaleMatrix .knownget { 0 get mul } if
  498.       0 Vexch rmoveto
  499.     } ifelse
  500.   } forall settextposition
  501. } bdef
  502.  
  503. /tf { setfillstate currentpoint fill moveto } bdef
  504. /tn { currentpoint newpath moveto } bdef
  505. % For stroking characters, temporarily restore the graphics CTM so that
  506. % the line width will be transformed properly.
  507. /Tmatrix matrix def
  508. /tS
  509.  { setstrokestate
  510.    currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix stroke
  511.    setmatrix moveto
  512.  } bdef
  513. /tB { gsave tf grestore tS } bdef
  514. % This does the wrong thing if there have been multiple text operations
  515. % within a single BT/ET pair, but it's a start.
  516. /tW { } bdef
  517.  
  518. end readonly put        % GS_PDF_ProcSet
  519.  
  520. .setglobal
  521.